home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / games / spritegrabber / grabber / assemble_grabber < prev    next >
Encoding:
Text File  |  1980-01-04  |  913 b   |  49 lines
  1. /*
  2.  * Routine To Save Current File 
  3.  * And Assemble Evolution/main_code.s File.
  4.  *
  5.  * By K.McIntosh....
  6.  * 
  7.  */
  8.  
  9.        
  10.         asm    = 'c:genam work:tosh_stuff/grabber/main_system.s '         
  11.            outexe = 'work:current.exe'        /* Change This To Your Own Output */
  12.  
  13. Main:
  14.            signal on ERROR
  15.  
  16.            address 'rexx_ced'
  17.            options results
  18.  
  19.            call close 'STDOUT'
  20.            call close 'STDIN'
  21.            call open 'STDIN','CON:0/0/640/255/Grabber./CLOSE'
  22.            call pragma '*','STDIN'
  23.            call open 'STDOUT','*'
  24.         'cedtoback'
  25.  
  26.            'status 19'
  27.            pathfile = result
  28.            say 'filename is' pathfile
  29.  
  30.            'status 18'
  31.           if result ~= 0 then do
  32.           'save' pathfile
  33.           say 'saving changes..'
  34.            end
  35.            
  36.         else say 'no changes..'
  37.  
  38.            say 'Assembling Grabber.......'
  39.            address 'COMMAND' asm 'TO' outexe
  40.            say '<ret> to close window'
  41.            pull
  42.            'cedtofront'
  43.            exit 0
  44.  
  45. ERROR:
  46.         pull
  47.            'cedtofront'
  48.         exit 0
  49.